home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 3
/
Cream of the Crop 3.iso
/
comm
/
tm4dhost.zip
/
TM4DHCFG.SCR
< prev
next >
Wrap
Text File
|
1993-11-27
|
11KB
|
340 lines
; Original Host Config Script done by "Tsung Hu".
;
; THIS SCRIPT IS COPYRIGHT by "ED KAPUSCINSKI JR".
;
; It's new Name should read "TM4dHCFG.SCR".
; There are now "Nine" Levels of Security to select from!
;
; The script files that run the show in this host have had their names
; changed along with there code. (Hconfig.hst) = (TM4d_CFG.HST)
; (HOST.SCR) = (TM4dHOST.SCR), (Hconfig.scr) = (TM4dHCFG.scr)
; (HUSER.HST) = (TM4dPASS.HST). And thier Menus also.
; This was done so as not to cause confusion in having (Two Host) in the
; Same directory. That's right, You can NOW have both.
;
; Like in the Tm4dhost script, Everything that was changed is
; marked with an * asterisk in the comment line like the ones below.
;
NEWUSER = 1 ; * Upload command not availible here
TMUSER = 2 ; * Upload command is availible here
SILVER = 3 ; * To use these alternate levels.
GOLD = 4 ; * Assign them to the caller in the
LEVEL5 = 5 ; * file "Huser.hst" as his "UserLevel"
LEVEL6 = 6 ; * From then on, He, the user will see that
LEVEL7 = 7 ; * Menu and not the TmUser Menu.
LEVEL8 = 8 ; * That's all there's to it.
SYSOP = 9 ; * New Sysop Level Now 9
DETECTBAUD = 1 ; set to 0 if COM baud rate is locked
query baud,INITIALBAUD ; initial baud rate (highest baud rate)
YELLTIME = 3 ; amount of time to display the alarm
YELLSOUND = 1 ; amount of time to ring the alarm
query dirtelemate,HOSTDIR ; directory holding *.HST
query dirupload,DOWNLOADDIR ; host download directory
query dirdownload,UPLOADDIR ; host upload directory
CLOSESYSTEM = 0 ; set to 1 if close system
COMPORT = "1"
; * ----------- Procedure Break --------------
procedure Pause
string ch
print
print "Press [Enter] to continue ",
repeat
inputch ch
until success
print
print
endproc
; * ----------- Procedure Break --------------
open "HSHELL.BAT" ; [S]hell batch file
if not success
print
print
print "Which COM port is your modem connected to (1-8) ? COM",
repeat
inputch COMPORT
if success
print COMPORT
strpos "12345678",COMPORT,pos
if pos=0
print "Which COM port is your modem connected to (1-8) ? COM",
endif
endif
until success and pos>0
print
if COMPORT<>"1" and COMPORT<>"2"
print "Due to DOS limit, only COM1 and COM2 is supported for"
print "the [S]hell command in host mode. However, you may"
print "create your own HSHELL.BAT and use a third-party program,"
print "such as DOORWAY, which allows you to use COM",COMPORT
else
create "HSHELL.BAT"
if success
print "Creating HSHELL.BAT, the batch file for [S]hell command"
write "CTTY COM",COMPORT
write "COMMAND"
write "CTTY CON"
write "EXIT"
close
else
print "Cannot to create HSHELL.BAT"
endif
endif
Pause
else
close ; already exist, skip it
endif
open "TM4d_CFG.HST"
string s
if success
read s
atoi s,NEWUSER ; new user level
read s
atoi s,TMUSER ; * MAIN MENU
read s ; *
atoi s,SILVER ; * Alternate levels can be used as sub-menus
read s ; * by assigning a userlevel to a perticular menu.
atoi s,GOLD ; * Then calling that userlevel from One of other menu's
read s ; * as an option. They can also be assigned to other Scripts.
atoi s,LEVEL5 ; * The "Power" of this Host Script is not known yet. Since it has
read s ; * so many levels of Security. The Sysop can do anything that he
atoi s,LEVEL6 ; * wishes to.
read s ; *
atoi s,LEVEL7 ; *
read s ; *
atoi s,LEVEL8 ; *
read s ; *
atoi s,SYSOP ; * New sysop level
read s ;
atoi s,DETECTBAUD ; detect baud rate
read s
atoi s,INITIALBAUD ; initial baud rate
read s
atoi s,YELLTIME ; yell time
read s
atoi s,YELLSOUND ; yell sound
read HOSTDIR ; directory containing H*.HST
read DOWNLOADDIR ; download directory
read UPLOADDIR ; upload directory
read s
atoi s,CLOSESYSTEM ; open or close system
close
endif
finish = 0
while not finish
clear text
print "A: TeleMate New User : ",NEWUSER ; *
print "B: TeleMate Main Menu : ",TMUSER ; * This is the standard menu
print "C: TeleMate Silver : ",SILVER ; * Name these alternate
print "D: TeleMate Gold : ",GOLD ; * levels according to
print "E: TeleMate Level 5 : ",LEVEL5 ; * use, Util for utils
print "F: TeleMate Level 6 : ",LEVEL6 ; * or Wendy just for her!
print "G: TeleMate Level 7 : ",LEVEL7 ; * They can also be assigned
print "H: TeleMate Level 8 : ",LEVEL8 ; * to scripts which have many levels
print "I: Telemate SySop : ",SYSOP ; *
print "J: Detect Baud Rate : ",
if DETECTBAUD
print "ON"
else
print "OFF"
endif
print "K: Initial Baud Rate : ",INITIALBAUD
print "L: Yell Time : ",YELLTIME," seconds"
print "M: Yell Sound : ",YELLSOUND," seconds"
print "N: Host Directory : ",HOSTDIR
print "O: Download Directory : ",DOWNLOADDIR
print "P: Upload Directory : ",UPLOADDIR
print "R: Close System : ",
if CLOSESYSTEM
print "ON"
else
print "OFF"
endif
print " ------------------------------------" ; *
print "S: Save Configuration and Run Host Mode"
print "Q: Abort Configuration"
print " ------------------------------------" ; *
print "Which option: ",
repeat
inputch ch
until success
print ch
print
switch ch
case "A":
print "Enter New User Security Level: ", ; *
input s
ss = ""
concat ss,s
if ss<>""
atoi ss,NEWUSER
endif
case "B":
print "Enter Main Menu Security Level: ", ; *
input s
ss = ""
concat ss,s
if ss<>""
atoi ss,TMUSER
endif
case "C":
print "Enter Silver Security Level: ", ; *
input s
ss = ""
concat ss,s
if ss<>""
atoi ss,SILVER
endif
case "D":
print "Enter Gold Security Level: ", ; *
input s
ss = ""
concat ss,s
if ss<>""
atoi ss,GOLD
endif
case "E":
print "Enter Level 5 Security Level: ", ; *
input s
ss = ""
concat ss,s
if ss<>""
atoi ss,LEVEL5
endif
case "F":
print "Enter Level 6 Security Level: ", ; *
input s
ss = ""
concat ss,s
if ss<>""
atoi ss,LEVEL6
endif
case "G":
print "Enter Level 7 Security Level: ", ; *
input s
ss = ""
concat ss,s
if ss<>""
atoi ss,LEVEL7
endif
case "H":
print "Enter Level 8 Security Level: ", ; *
input s
ss = ""
concat ss,s
if ss<>""
atoi ss,LEVEL8
endif
case "I":
print "Enter SYSOP Security Level: ", ; *
input s
ss = ""
concat ss,s
if ss<>""
atoi ss,SYSOP
endif
case "J":
DETECTBAUD = not DETECTBAUD
case "K":
print "Enter initial baud rate: ",
input s
ss = ""
concat ss,s
if ss<>""
atoi ss,baud
endif
switch baud
case 300: INITIALBAUD = baud
case 1200: INITIALBAUD = baud
case 2400: INITIALBAUD = baud
case 4800: INITIALBAUD = baud
case 9600: INITIALBAUD = baud
case 19200: INITIALBAUD = baud
case 38400: INITIALBAUD = baud ; *
otherwise : print
print "Invalid value"
print
Pause
endswitch
case "L":
print "Enter yell time (0 to turn off): ",
input s
ss = ""
concat ss,s
if ss<>""
atoi ss,YELLTIME
endif
case "M":
print "Enter yell sound length (0 to turn off): ",
input s
ss = ""
concat ss,s
if ss<>""
atoi ss,YELLSOUND
endif
case "N":
print "Enter Host directory which contains *.HST: ",
input s
ss = ""
concat ss,s
if ss<>""
HOSTDIR = ss
endif
case "O":
print "Enter host download directory: ", ; * in future try to add
input s ; * directory just for host
ss = "" ; * u/l * d/l files.
concat ss,s
if ss<>""
DOWNLOADDIR = ss
endif
case "P":
print "Enter host upload directory: ",
input s
ss = ""
concat ss,s
if ss<>""
UPLOADDIR = ss
endif
case "R":
CLOSESYSTEM = not CLOSESYSTEM
case "S":
delete "TM4d_CFG.HST"
create "TM4d_CFG.HST"
if not success
print "Cannot create TM4d_CFG.HST"
print "Configuration aborted"
finish = 1
else
write NEWUSER
write TMUSER ; *
write SILVER ; *
write GOLD ; *
write LEVEL5 ; *
write LEVEL6 ; *
write LEVEL7 ; *
write LEVEL8 ; *
write SYSOP ; *
write DETECTBAUD
write INITIALBAUD
write YELLTIME
write YELLSOUND
write HOSTDIR
write DOWNLOADDIR
write UPLOADDIR
write CLOSESYSTEM
close
print "Configuration completed"
Pause
print "Starting host mode"
script "TM4dHOST"
endif
case "Q":
print "Configuration aborted"
finish = 1
endswitch
endwhile